home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
2614.ZIP
/
DISPLA.ZIP
/
TEST_S87.PRG
< prev
Wrap
Text File
|
1990-11-30
|
1KB
|
38 lines
@ 0,0 CLEAR
cInFile = "display.doc " && filename must have extension
cKey = "" && key pressed when dispfile() exits
nNColor = 7 && foreground color
nHColor = 15 && background color
nColSkip = 5 && how many columns to move for left/right arrow
nRMargin = 132 && max line size
cExitKeys = "AaBbC " && keys that can terminate routine
lBrowse = .f.
@ 0,0 SAY "Enter filename: " GET cInFile
@ 1,0 SAY " Foreground: " GET nNColor PICTURE "999"
@ 2,0 SAY " Highlight: " GET nHColor PICTURE "999"
@ 3,0 SAY " Exit keys: " GET cExitKeys
@ 1,40 SAY "column increment: " GET nColSkip PICTURE "999"
@ 2,40 SAY " max line size: " GET nRMargin PICTURE "999"
@ 3,40 SAY " browse mode? " GET lBrowse PICTURE "Y"
READ
*
* remember a window will be one size less and greater than the passed coord.'s
*
* the 9th parameter contains the keys that the routine will terminate on
* and the CHR(143) represents the F3 key.
*
@ 4,9 TO 11,71
cKey = DispFile(cInFile, 5, 10, 10, 70, 1,;
nNColor, nHColor, cExitKeys + CHR(143),;
lBrowse, nColSkip, nRMargin)
@ 20,0 SAY "Key pressed was: " + '[' + cKey + ']'
QUIT